home *** CD-ROM | disk | FTP | other *** search
/ Night Owl 6 / Night Owl's Shareware - PDSI-006 - Night Owl Corp (1990).iso / 023a / prop_man.zip / PITTS.SAB < prev    next >
Text File  |  1991-09-24  |  935b  |  33 lines
  1. label start
  2. cls
  3. set col bac red
  4. display cp.dis
  5. write "PITTS.SAB" at 2,36
  6. write "Pittsville Home Client Management Program" at 7,19
  7. set v abc to ""
  8. write "(A)......  Enter A New Client Record                    " at 9,10
  9. write "(B)......                                               " at 10,10
  10. write "(C)......                                               " at 11,10
  11. write "(D)......                                               " at 12,10
  12. fillin abc using "Enter Selection, Client Name Or <ESC>  " at 15,10
  13. if abc = "" then ; goto fin ; endif
  14. if abc = "a" then ; goto opta ; endif
  15. if abc = "b" then ; goto optb ; endif
  16. if abc = "c" then ; goto optc ; endif
  17. if abc = "d" then ; goto optd ; endif
  18. edit using pitts where client contains .abc
  19.   goto start
  20. label opta
  21.   enter pitts for 1 row
  22.   goto start
  23. label optb
  24.   goto start
  25. label optc
  26.   goto start
  27. label optd
  28.   goto start
  29. label fin
  30.   cls
  31.   return
  32.  
  33.